uv2ws <- function(u,v) {
	
ws <- sqrt(u^2 + v^2)

ws <- round(ws, 2)

return(ws)

}